home *** CD-ROM | disk | FTP | other *** search
/ PC Media 7 / PC MEDIA CD07.iso / share / prog / cacoph10 / bluemonk.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-04-19  |  1.0 KB  |  57 lines
  1. #include "music.h"
  2.  
  3. main( void ) //Tune conceived by Thelonius Monk
  4.     {
  5.     tempo = 130;
  6.  
  7.     note( E3, TN8 + TN8 );
  8.     note( F3, TN8 );
  9.     note( FS3, TN8 + TN8 );
  10.     vnote( G3, TN8 + N2 );
  11.  
  12.     note( A4, TN8 + TN8 );
  13.     note( BF4, TN8 );
  14.     note( B4, TN8 + TN8 );
  15.     vnote( C4, TN8 + N2 );
  16.  
  17.     note( G3, TN8 + TN8 );
  18.     note( A4, TN8 );
  19.     note( G3, TN8 + TN8 );
  20.     note( FS3, TN8 );
  21.     note( F3, TN8 + TN8 );
  22.     note( A3, TN8 );
  23.     note( B3, TN8 + TN8 );
  24.  
  25.     note( C3, N4 );
  26.     note( B3, N4 );
  27.     vnote( BF3, N2 + N8 );
  28.  
  29.  
  30.     note( A4, TN8 + TN8 );
  31.     note( BF4, TN8 );
  32.     note( B4, TN8 + TN8 );
  33.     vnote( C4, TN8 + N2 );
  34.  
  35.     note( D4, TN8 + TN8 );
  36.     note( EF4, TN8 );
  37.     note( E4, TN8 + TN8 );
  38.     vnote( F4, TN8 + N2 );
  39.  
  40.     note( C4, TN8 + TN8 );
  41.     note( D4, TN8 );
  42.     note( C4, TN8 + TN8 );
  43.     note( B4, TN8 );
  44.     note( BF4, TN8 + TN8 );
  45.     note( D3, TN8 );
  46.     note( E3, TN8 + TN8 );
  47.  
  48.     vnote( F3, N4 + TN8 );
  49.     note( C4, TN8 + TN8 );
  50.     note( D4, TN8 );
  51.     note( C4, TN8 + TN8 );
  52.     note( D3, TN8 );
  53.     note( E3, TN8 + TN8 );
  54.  
  55.     vnote( F3, TN8 + DN2 );
  56.     return 0;
  57.     }